home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Gearwheel1.AMOS / Gearwheel1.amosSourceCode
AMOS Source Code  |  1997-04-15  |  1KB  |  52 lines
  1. Screen Open 0,320,256,8,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  3. Palette $808,$8F8,$F88,$FF8,$404,$484,$844,$884
  4. Double Buffer 
  5. Autoback 0
  6. W=0
  7. WX=0 : WY=0 : WZ=0 : MT=0
  8. Do 
  9.    Extension_8_121C 0,0
  10.   Add W,6
  11.   Add WX,3
  12.   Add WY,6
  13.   Add WZ,9
  14.    Extension_8_1122 0,0,300
  15.    Extension_8_1138 WX,WY,WZ
  16.    Extension_8_121C 0,1
  17.    Extension_8_1152 
  18.    Extension_8_121C 0,2
  19.   D=0 : RX1=0
  20.   For A=0 To 1023 Step 16
  21.     If D<2
  22.       X2= Extension_8_1114(A+W,80)
  23.       Y2= Extension_8_1106(A+W,80)
  24.     Else 
  25.       X2= Extension_8_1114(A+W,96)
  26.       Y2= Extension_8_1106(A+W,96)
  27.     End If 
  28.     RX2= Extension_8_1168(X2,Y2,10)+160
  29.     RY2= Extension_8_1184(X2,Y2,10)+128
  30.     RX4= Extension_8_1168(X2,Y2,-10)+160
  31.     RY4= Extension_8_1184(X2,Y2,-10)+128
  32.     Add D,1,0 To 3
  33.     If RX1=0
  34.       OX1=RX2 : OY1=RY2 : OX3=RX4 : OY3=RY4
  35.     Else 
  36.        Extension_8_1016 RX1,RY1 To RX2,RY2,4,4
  37.        Extension_8_1016 RX2,RY2 To RX4,RY4,4,4
  38.        Extension_8_1016 RX3,RY3 To RX4,RY4,4,4
  39.        Extension_8_1016 RX1,RY1 To RX3,RY3,4,4
  40.  
  41.        Extension_8_1016 RX1,RY1 To RX2,RY2,1,-1
  42.        Extension_8_1016 RX3,RY3 To RX4,RY4,2,-2
  43.     End If 
  44.     RX1=RX2 : RY1=RY2 : RX3=RX4 : RY3=RY4
  45.   Next 
  46.    Extension_8_1016 RX1,RY1 To OX1,OY1,1,-1
  47.    Extension_8_1016 RX3,RY3 To OX3,OY3,2,-2
  48.    Extension_8_1042 0,0,64,32,272,224
  49.    Extension_8_1042 0,1,64,32,272,224
  50.   Screen Swap 
  51.   Wait Vbl 
  52. Loop